home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TUNEIN01.DIR / 00117_Script_117 < prev    next >
Text File  |  1995-06-01  |  463b  |  20 lines
  1. on mouseDown
  2.   global lastChapter, thisLine
  3.   set thisLine = the mouseLine
  4.   if thisLine = -1 then
  5.     exit
  6.   end if
  7.   if line thisLine of field "Oracle History"  = "" then
  8.     beep
  9.     exit
  10.   else
  11.     hilite line thisLine of field "Oracle History"  
  12.     puppetSound "add a movie"
  13.     updatestage
  14.     set lastChapter = ("Chapter "&thisLine)
  15.     set the text of cast "Oracle History text" = the text of cast ("Chapter "&thisLine)
  16.   end if
  17. end
  18.  
  19.  
  20.